perm filename TEST[MUS,LCS] blob
sn#206541 filedate 1976-03-17 generic text, type T, neo UTF8
00100 RCDFLG←-1;
00200
00300 < ZNKE .DAT -- RANDOM NUMBER= 1
00400 PLAY;
17900 TOOT -16.7+ 16.710 0.090 GS*2 1000.000 F1
18000 ;PRINT(P1);< TOOT -16.7+ 95
18100 CLAR -16.7+ 16.710 0.090 GS
18200 ;PRINT(P1);< CLAR -16.7+ 2
18300 TOOT -16.7+ 16.800 0.100 GS*2 1000.000 F1
18400 ;PRINT(P1);< TOOT -16.7+ 96
18500 CLAR -16.7+ 16.800 0.090 GS
18600 ;PRINT(P1);< CLAR -16.7+ 3
18700 CLAR -16.7+ 16.890 0.100 FS
18800 ;PRINT(P1);< CLAR -16.7+ 4
18900 TOOT -16.7+ 16.900 0.090 AS*2 1000.000 F1
19000 ;PRINT(P1);< TOOT -16.7+ 97
19100 TOOT -16.7+ 16.990 0.090 C*4 1000.000 F1
19200 ;PRINT(P1);< TOOT -16.7+ 98
19300 CLAR -16.7+ 16.990 0.090 E
19400 ;PRINT(P1);< CLAR -16.7+ 5
19500 TOOT -16.7+ 17.080 0.100 GS*2 1000.000 F1
19600 ;PRINT(P1);< TOOT -16.7+ 99
19700 CLAR -16.7+ 17.080 0.090 GS
19800 ;PRINT(P1);< CLAR -16.7+ 6
19900 CLAR -16.7+ 17.170 0.090 E
20000 ;PRINT(P1);< CLAR -16.7+ 7
20100 TOOT -16.7+ 17.180 0.090 C*4 1000.000 F1
20200 ;PRINT(P1);< TOOT -16.7+ 100
20300 CLAR -16.7+ 17.260 0.100 FS
20400 ;PRINT(P1);< CLAR -16.7+ 8
20500 TOOT -16.7+ 17.270 0.090 AS*2 1000.000 F1
20600 ;PRINT(P1);< TOOT -16.7+ 101
20700 TOOT -16.7+ 17.360 0.090 DS*2 1000.000 F1
20800 ;PRINT(P1);< TOOT -16.7+ 102
20900 CLAR -16.7+ 17.360 0.090 CS*2
21000 ;PRINT(P1);< CLAR -16.7+ 9
21100 TOOT -16.7+ 17.450 0.090 GS*2 1000.000 F1
21200 ;PRINT(P1);< TOOT -16.7+ 103
21300 CLAR -16.7+ 17.450 0.090 GS
21400 ;PRINT(P1);< CLAR -16.7+ 10
21500 TOOT -16.7+ 17.540 0.090 GS*2 1000.000 F1
21600 ;PRINT(P1);< TOOT -16.7+ 104
21700 CLAR -16.7+ 17.540 0.090 GS
21800 ;PRINT(P1);< CLAR -16.7+ 11
21900 TOOT -16.7+ 17.630 0.100 AS*2 1000.000 F1
22000 ;PRINT(P1);< TOOT -16.7+ 105
22100 CLAR -16.7+ 17.630 0.090 FS
22200 ;PRINT(P1);< CLAR -16.7+ 12
22300 CLAR -16.7+ 17.720 0.090 E
22400 ;PRINT(P1);< CLAR -16.7+ 13
22500 TOOT -16.7+ 17.730 0.090 C*4 1000.000 F1
22600 ;PRINT(P1);< TOOT -16.7+ 106
22700 CLAR -16.7+ 17.810 0.180 GS
22800 ;PRINT(P1);< CLAR -16.7+ 14
22900 TOOT -16.7+ 17.820 0.180 GS*2 1000.000 F1
23000 ;PRINT(P1);< TOOT -16.7+ 107
23100 CLAR -16.7+ 17.990 0.090 A
23200 ;PRINT(P1);< CLAR -16.7+ 15
23300 TOOT -16.7+ 18.000 0.090 G*2 1000.000 F1
23400 ;PRINT(P1);< TOOT -16.7+ 108
23500 CLAR -16.7+ 18.080 0.090 CS*2
23600 ;PRINT(P1);< CLAR -16.7+ 16
23700 TOOT -16.7+ 18.090 0.090 DS*2 1000.000 F1
23800 ;PRINT(P1);< TOOT -16.7+ 109
23900 CLAR -16.7+ 18.170 0.090 GS
24000 ;PRINT(P1);< CLAR -16.7+ 17
24100 TOOT -16.7+ 18.180 0.090 GS*2 1000.000 F1
24200 ;PRINT(P1);< TOOT -16.7+ 110
24300 CLAR -16.7+ 18.260 0.090 GS
24400 ;PRINT(P1);< CLAR -16.7+ 18
24500 TOOT -16.7+ 18.270 0.090 GS*2 1000.000 F1
24600 ;PRINT(P1);< TOOT -16.7+ 111
24700 CLAR -16.7+ 18.350 0.090 FS
24800 ;PRINT(P1);< CLAR -16.7+ 19
24900 TOOT -16.7+ 18.360 0.090 AS*2 1000.000 F1
25000 ;PRINT(P1);< TOOT -16.7+ 112
25100 CLAR -16.7+ 18.440 0.090 E
25200 ;PRINT(P1);< CLAR -16.7+ 20
25300 TOOT -16.7+ 18.450 0.090 C*4 1000.000 F1
25400 ;PRINT(P1);< TOOT -16.7+ 113
25500 CLAR -16.7+ 18.530 0.090 DS
25600 ;PRINT(P1);< CLAR -16.7+ 21
25700 TOOT -16.7+ 18.540 0.080 CS*4 1000.000 F1
25800 ;PRINT(P1);< TOOT -16.7+ 114
25900 TOOT -16.7+ 18.620 0.090 C*4 1000.000 F1
26000 ;PRINT(P1);< TOOT -16.7+ 115
26100 CLAR -16.7+ 18.620 0.090 E
26200 ;PRINT(P1);< CLAR -16.7+ 22
26300 TOOT -16.7+ 18.710 0.090 AS*2 1000.000 F1
26400 ;PRINT(P1);< TOOT -16.7+ 116
26500 CLAR -16.7+ 18.710 0.080 FS
26600 ;PRINT(P1);< CLAR -16.7+ 23
26700 CLAR -16.7+ 18.790 0.090 GS
26800 ;PRINT(P1);< CLAR -16.7+ 24
26900 TOOT -16.7+ 18.800 0.080 GS*2 1000.000 F1
27000 ;PRINT(P1);< TOOT -16.7+ 117
27100 TOOT -16.7+ 18.880 0.090 G*2 1000.000 F1
27200 ;PRINT(P1);< TOOT -16.7+ 118
27300 CLAR -16.7+ 18.880 0.090 A
27400 ;PRINT(P1);< CLAR -16.7+ 25
27500 TOOT -16.7+ 18.970 0.090 DS*2 1000.000 F1
27600 ;PRINT(P1);< TOOT -16.7+ 119
27700 CLAR -16.7+ 18.970 0.080 CS*2
27800 ;PRINT(P1);< CLAR -16.7+ 26
27900 CLAR -16.7+ 19.050 0.090 B
28000 ;PRINT(P1);< CLAR -16.7+ 27
28100 TOOT -16.7+ 19.060 0.080 F*2 1000.000 F1
28200 ;PRINT(P1);< TOOT -16.7+ 120
28300 TOOT -16.7+ 19.140 0.090 G*2 1000.000 F1
28400 ;PRINT(P1);< TOOT -16.7+ 121
28500 CLAR -16.7+ 19.140 0.080 A
28600 ;PRINT(P1);< CLAR -16.7+ 28
28700 CLAR -16.7+ 19.220 0.170 GS
28800 ;PRINT(P1);< CLAR -16.7+ 29
28900 TOOT -16.7+ 19.230 0.170 GS*2 1000.000 F1
29000 ;PRINT(P1);< TOOT -16.7+ 122
29100 CLAR -16.7+ 19.390 0.170 GS
29200 ;PRINT(P1);< CLAR -16.7+ 30
29300 TOOT -16.7+ 19.400 0.160 GS*2 1000.000 F1
29400 ;PRINT(P1);< TOOT -16.7+ 123
29500 FINISH; < ZNKE .DAT